10 A$=" "
20 IFA=0THENA=1:LOAD"ROUTINES",8,1
30 IFA=1THENA=2:LOAD"PAINT MANUAL.O",8,1
40 OF=2:GOTO260
41 FORI=1TO15:GOSUB60:NEXT:RETURN
42 FORI=1TO15:GOSUB80:NEXT:RETURN
43 POKE214,24:PRINT"[145]"SPC(15)"[204][207][193][196][201][206][199]...[145]":POKE646,CU:RETURN
50 REM SCROLL UP
60 IFOF>(H-16)THENRETURN
69 OF=OF+1:SYS51206:PRINTLEFT$(HD$,20)""A$(OF+15):RETURN
70 REM SCROLL DOWN
80 IFOF=1THENRETURN
89 OF=OF-1:SYS51209:PRINT""A$(OF):RETURN
90 CLOSE4:OPEN4,4,7:LN=5:T$="":PRINT#4,X$SPC(21)A$(1)X$X$SPC(21)A$(3)X$X$;
100 PS=LF:PRINT#4,SPC(LF);:FORI=5TOH-2:GOSUB160:GOSUB170:IF(PS+LEN(A$(I)))<=RITHENGOSUB150:NEXT:GOTO250
110 LX=1:FORIX=1TOLEN(A$(I)):ON-(MID$(A$(I),IX,1)=" "ORIX=LEN(A$(I)))GOSUB130:NEXT   
120 PS=PS+1:PRINT#4," ";:NEXT:GOTO250
130 IF(IX-LX+PS)>=RITHENGOSUB200
140 PRINT#4,MID$(A$(I),LX,IX-LX+1);:PS=PS+IX-LX+1:LX=IX+1:RETURN
150 PRINT#4,A$(I)" ";:PS=PS+LEN(A$(I))+1:RETURN
160 IFPS<>LFTHENIFLEFT$(A$(I),3)="   "ORLEFT$(A$(I),3)="[160][160][160]"THENGOSUB200:RETURN
170 IFA$(I)=""ORA$(I)=" "THENGOSUB200:GOSUB200:I=I+1:IFI=H-1THEN190
180 IFA$(I)=""ANDA$(I-1)=""THENI=I+1:ON-(I=H-1)GOTO190:GOTO180
190 RETURN
200 PRINT#4,X$SPC(LF);:PS=LF:LN=LN+1:IFLN<57THENRETURN
210 PRINT#4,X$X$X$X$X$X$X$X$X$;:IFTF=0THENGOSUB230
220 PRINT#4,X$,X$,X$,X$,X$SPC(LF);:LN=5:RETURN
230 MS$="[206]EXT SHEET/[210][197][212][213][210][206]/^":GOSUB420:POKE198,0:WAIT198,1:GETA$
240 IFA$<>"^"THENMS$="[208]RINTING...":GOSUB420:RETURN
250 PRINT#4,:CLOSE4:RETURN
260 A$="":DIMA$(420):GOSUB360:HD$="":PRINT"[147][159]";
270 PRINT"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
280 PRINT"[159]                                        ";
290 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
300 POKE49152,4:POKE49153,19:POKE49154,1:POKE49155,38
310 RV=0:BX=0:EX=40:BY=3:BD=16:BC=7:GOSUB380:GOSUB610:POKE53281,0:POKE53280,0
320 BX=1:EX=39:BY=21:BD=1:BC=3:GOSUB380
330 LN$="                                      ":X$=CHR$(13):CU=3:N=197
340 FI$="T.PAINT":PR$="[208][160][193][160][201][160][206] [212][160][160] [194] [217] [160][160][206][160][213][160][205][160][194][160][197] [210]":LF=10:RI=75
350 PRINT"[159]";SPC(20-LEN(PR$)/2)PR$:GOTO440
360 BA$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
370 A$[178]"(null)CMD(null)CMD(null)CMD(null)CMD(null)CMD(null)CMD(null)CMD":[129]I[178]1[164]6:BD$[178]BD$[170]A$:[130]:[142]
380 OC[178][194](646):[151]646,BC:RV$[178]"":[139]RV[167]RV$[178]"
390 POKE211,BX:POKE214,BY:SYS58732:PRINTRV$"[176]"LEFT$(BA$,EX-BX-2)"[174][157]";
400 PRINTRV$LEFT$(BD$,BD*3):PRINTRV$SPC(BX)"[145][173]"LEFT$(BA$,EX-BX-2)"[189]
410 [151]211,BX:[151]214,BY[170]1:[158]58732:[153]RV$[200](BD$,BD[172]3)"":[151]646,OC:RV[178]0:[142]
420 [141]430:[153]"SYS"[200](HD$,23)[166]20[171][195](MS$)[173]2)MS$"OPEN":[142]
430 [153][200](HD$,23)""[200](LN$,36):[142]
440 H[178][171]1:L[178]1:[141]43:[159]2,8,2,FI$[170]",P,R":[161]#2,A$,A$
450 [158]828,2,40:H[178]H[170]1
460 A$(H)[178]A$:[139]H[178]17[167][141]550:[141]700
465 [139]ST[179][177]0[167][160]2:[151]646,0:[141]43:[141]700:L[178]0
480 [161]K$:[145][171](L[178]1[175]K$[178]"")[137]450:[139]K$[178]""[167]480
485 [139]HE[167][141]560:[137]480
490 [145][171](K$[178]"")[171]2[172](K$[178]"ON")[171]3[172](K$[178]"P")[171]4[172](K$[178]"C")[141]60,80,800,770
500 [145][171](K$[178]"Q")[171]2[172](K$[178]"")[171]3[172](K$[178]"")[171]4[172](K$[178]"H")[141]660,1070,1080,2010
505 [145][171](K$[178]"INPUT")[171]2[172](K$[178]"GOTO")[171]3[172](K$[178]"LET")[141]41,42,42
540 [137]480
550 [151]214,4:[151]211,0:[151]646,CU:[153]"ON";:[129]I[178]1[164]16:[153]""LN$:[130]
560 [151]646,CU:[151]214,4:[153]"ON";:[129]I[178]0[164]15
565 [153]""A$(I[170]OF)[200](LN$,38[171][195](A$(I[170]OF))):[130]:HE[178]0:[142]
590 [139]L[167][153]"OPEN
600 RETURN
610 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:RETURN
660 MS$="[209]UIT?  [193]RE YOU SURE?  ([217]/[206])":GOSUB420:POKE198,0
670 GETA$:IFA$<>"Y"ANDA$<>"N"THEN670
680 IFA$<>"Y"THENGOSUB430:GOSUB700:RETURN
690 GOTO740
700 MS$=" ":GOSUB420
710 POKE214,22:PRINT"[145][158] [195][210][211][210]-[213][208]/[196][206][160][146][159] SCAN  [158] [200] [146][159] HELP ":RETURN
740 OPEN15,8,15,"R0:PAINT BOOT=PAINT BOOT":INPUT#15,ER:CLOSE15
745 IFER<>63THENPRINT"[147]":END
750 A$="PAINT BOOT":Q$=CHR$(34):PRINT"[147]":PRINT"[144]LOAD"Q$A$Q$",8
760 [153]"RUN":[151]631,13:[151]632,13:[151]198,2:[128]
770 [139]H[179]15[167][142]
780 CU[178]CU[170]1:[139]CU[178]16[167]CU[178]1
790 [151]646,CU:[141]560:[142]
800 [139]L[167][141]2000:[142]
810 [160]15:[160]4:[159]15,4,8:[160]15:[139]ST[167][151]53281,1:[151]53281,0:[142]
820 MS$[178]"(null)INGLE SHEET OR (null)RACTOR? ((null)/(null)/^)":[141]420
830 [161]A$:[139]A$[179][177]"S"[175]A$[179][177]"T"[175]A$[179][177]"^"[167]830
840 [139]A$[178]"^"[167][141]700:[142]
850 TF[178]1:[139]A$[178]"S"[167]TF[178]0
860 MS$[178]"(null)ARGINS: (null)VALASC(null):"[170][196](LF)[170]" (null)RIGHT$CHR$LEFT$(null):"[170][196](RI)[170]" ((null)/(null))":[141]420
870 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]870
880 [139]A$[178]"N"[167][141]930
890 MS$[178]"(null)ET TOP OF FORM/(null)ETURN/^":[141]420:[151]198,0:[146]198,1:[161]A$:[139]A$[178]"^"[167]840
900 [141]920:[141]90:[160]4:[159]4,4,7:[129]I[178]LN[164]67:[152]4,:[130]:[160]4
910 [141]700:[142]
920 MS$[178]"(null)RINTING...":[141]420:[142]
930 MS$[178]" ":[141]420
940 [151]214,22:[153]"ONOPENSYSLEN(null)(null)(null)-UP/DOWN/(null)VAL(null)(null)(null)(null)  OPEN(null)VALASC(null)CLOSE(null)ATN(null)CHR$RIGHT$(null):   CMDCMDCMDSYS"LF
950 [161]A$:[139]A$[179][177]"ON"[175]A$[179][177]""[175]A$[179][177][199](13)[167]950
960 [145][171](A$[178]"ON")[171]2[172](A$[178]"")[171]3[172](A$[178][199](13))[137]970,980,990
970 LF[178]LF[170]5[170](40[172](LF[177]40)):[137]940
980 LF[178]LF[171]5[171](45[172](LF[179]1)):[137]940
990 [146]197,64
1000 [151]214,22:[153]"ONSYSLEN(null)(null)(null)-UP/DOWN/(null)VAL(null)(null)(null)(null) OPEN(null)RIGHT$CHR$LEFT$(null)CLOSE(null)ATN(null)CHR$RIGHT$(null)    CMDCMDCMDCMDSYS"RI
1010 [161]A$:[139]A$[179][177]"ON"[175]A$[179][177]""[175]A$[179][177][199](13)[167]1010
1020 [145][171](A$[178]"ON")[171]2[172](A$[178]"")[171]3[172](A$[178][199](13))[137]1030,1040,1050
1030 RI[178]RI[170]5[170](55[172](RI[177]105)):[137]1000
1040 RI[178]RI[171]5[171](55[172](RI[179]65)):[137]1000
1050 [142]
1060 [153][194](197):[137]1060
1070 OF[178]1:[141]550:[142]
1080 [139]H[179]16[167][142]
1090 OF[178]H[171]15:[141]550:[142]
2000 MS$[178]"(null)OT AVAILABLE YET.  (null)TILL (null)(null)ATNSTR$ING...":[141]420:[146]197,64:[141]700:[142]
2010 [151]646,CU:[151]214,9:[151]211,0:[153]"ON";:HE[178]1
2015 [153]""LN$
2020 [153]" LEN(null)(null)(null) (null)(null)/STR$(null)(null)(null) TO SCAN    ASC1 PAGES DOWN"
2030 [153]" LEN(null)(null)(null)-(null) MOVES TO BOTTOM  ASC7 PAGES UP  "
2040 [153]" LEFT$(null)(null)VAL MOVES TO TOP       (null) TO PRINT   "
2050 [153]" LEN TO CHANGE COLORS      (null) TO QUIT    ":[153]""LN$:[142]